home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d11 / basmus.arc / SYNTH.BAS < prev    next >
Encoding:
BASIC Source File  |  1990-09-29  |  8.2 KB  |  224 lines
  1. 5 REM THIS HAD BETTER WORK
  2. 10 DEFINT A-Z:ON ERROR GOTO 30
  3. 20 GOTO 50
  4. 30 'ERROR HANDLER
  5. 40 RESUME NEXT
  6. 50 OPTION BASE 1:DIM ROW(25)
  7. 60 FOR I=1 TO 25:READ ROW(I):NEXT I
  8. 70 DATA 6,25,20,2,15,24,1,13,7,9,5,18,3,14,19,4,8,11,23,12,22,10,16,17,21
  9. 80 WIDTH 40:KEY OFF:CLS:LOCATE ,,0
  10. 90 COLOR 7,0,1
  11. 100 FOR I = 1 TO 96
  12. 110  A = INT(RND*2400 + 1000)
  13. 120 PRINT STRING$(10,CHR$(14));
  14. 130 SOUND A,.01
  15. 140 SOUND 100 + I,.01
  16. 150 NEXT I
  17. 160 PLAY "L16O4GO5CEGE2G"
  18. 170 COLOR 15,0:LOCATE 13,13:PRINT" VERSION  -0.01 ";
  19. 180 COLOR 0,15:LOCATE 9,8:PRINT" THE AMAZING,INCREDULOUS ";
  20. 190 COLOR 15,0:LOCATE 11,11:PRINT" SYNSONIC ORGANITRON ";
  21. 200 COLOR 31,0:LOCATE 20,5:PRINT" WARNING:";:COLOR 0,15:PRINT" PLEASE DO NOT COPY THIS PROGRAM IT TOOK ME AND MY BROTHER ALL DAY TO WRITE !
  22. 210 COLOR 15,3 :LOCATE 25,1:PRINT"       PRESS ANY KEY TO CONTINUE        ";
  23. 220 K$=INKEY$:IF K$ = "" THEN 220
  24. 230 COLOR 7,0,4
  25. 240 LOCATE 25,1:PRINT STRING$(79," "):LOCATE 25,1
  26. 250 FOR I = 1 TO 499
  27. 260 COLOR 15,0:PRINT STRING$(1,CHR$(17));:SOUND 19000,.01:
  28. 270 COLOR 0,15:PRINT STRING$(1,CHR$(16));:SOUND 8200,.01
  29. 280 NEXT I
  30. 290 COLOR 15,0:PRINT CHR$(17);
  31. 300 COLOR 15,0,0
  32. 310 PLAY "MNL4O1T255C2C8P8CD2"
  33. 320 LOCATE 4,3,0:PRINT "CONCEIVED...";
  34. 330 PLAY "D8P8G2G8P8F8P8E8P8D8P8C2":LOCATE 4,21:PRINT "COMPOSED...";
  35. 340 PLAY "C2C8P8CD2D8P8F2F8P8E-8P8D8P8C8P8O0B-2":LOCATE 6,11:PRINT "CONTRIVED...";
  36. 350 PLAY "B-2B-B-O1C2D2DDD+2":LOCATE 7,25:PRINT "DEVISED...";
  37. 360 PLAY "D+O0B-2B-B-O1C2"
  38. 370 LOCATE 9,3:PRINT "AND FORGED ";
  39. 380 PLAY "MBCG2GEDCG2G2D+DCGGCCGG2ECGG2E-C1O0C1"
  40. 390 PRINT "FROM THE CEREBRATIONS ";
  41. 400 LOCATE 11,2:PRINT "OF THE COSMIC COGNIZANT CONCIOUSNESSES ";
  42. 410 LOCATE 13,20:PRINT "OF..."
  43. 420 LOCATE 15,6:PRINT "JOSEPH EDWARD ";:COLOR 31,0:PRINT "`THE CHIMP'";:COLOR 15,0:PRINT" BATUTIS";
  44. 430 LOCATE 17,20:PRINT "AND";
  45. 440 LOCATE 19,6:PRINT "EDWARD JOSEPH ";:COLOR 31,0:PRINT "`EDDIE BABY'";:COLOR 15,0:PRINT" BATUTIS";
  46. 450 LOCATE 24,1:COLOR 15,0:PRINT "     PRESS ANY KEY TO CONTINUE         ";
  47. 460 FOR I=1 TO 2000:I=I:NEXT I
  48. 470 K$=INKEY$:IF K$="" THEN 470
  49. 480 FOR M=1 TO 20
  50. 490 FOR J=1 TO 25
  51. 500 LOCATE ROW(J),M+20:PRINT " ";
  52. 510 NEXT J
  53. 520 FOR L=1 TO 25
  54. 530 LOCATE ROW(L),21-M:PRINT " ";
  55. 540 NEXT L,M
  56. 550 CLS
  57. 560 CLS:SCREEN 1:IF FLAG<>0 THEN 590  ELSE FLAG=1
  58. 570 DIM BH1(500),BH2(500),TH1(500),TH2(500),RV1(500),RV2(500),LV1(500),LV2(500)
  59. 580 ON ERROR GOTO 30
  60. 590 COLOR 0,3
  61. 600 FOR A=14 TO 302 STEP 12
  62. 610 CIRCLE (A,4),4
  63. 620 NEXT A
  64. 630 FOR A=8 TO 196 STEP 9
  65. 640 CIRCLE (314,A),4
  66. 650 NEXT A
  67. 660 FOR A=314 TO 14 STEP -12
  68. 670 CIRCLE (A,196),4
  69. 680 NEXT A
  70. 690 FOR A=191 TO 8 STEP -9
  71. 700 CIRCLE (8,A),4
  72. 710 NEXT A
  73. 720 CIRCLE (14,4),4
  74. 730 COLOR 0,7
  75. 740 FOR A=26 TO 302 STEP 24
  76. 750 PAINT (A,4),2,3
  77. 760 NEXT A
  78. 770 GET (1,1)-(319,10),TH1
  79. 780 FOR A=26 TO 302 STEP 24
  80. 790 PAINT (A,4),0,3
  81. 800 NEXT A
  82. 810 FOR A=14 TO 302 STEP 24
  83. 820 PAINT (A,4),2,3
  84. 830 NEXT A:GET (1,1)-(319,10),TH2
  85. 840 FOR A=8 TO 196 STEP 18
  86. 850 PAINT (314,A),2,3
  87. 860 NEXT A
  88. 870 GET(310,1)-(319,199),RV1
  89. 880 FOR A=8 TO 196 STEP 18
  90. 890 PAINT (314,A),0,3
  91. 900 NEXT A
  92. 910 FOR A=17 TO 196 STEP 18
  93. 920 PAINT (314,A),2,3
  94. 930 NEXT A
  95. 940 GET(310,1)-(319,199),RV2
  96. 950 FOR A=314 TO 14 STEP -24
  97. 960 PAINT (A,196),2,3
  98. 970 NEXT A
  99. 980 GET (1,190)-(319,199),BH1
  100. 990 FOR A=314 TO 14 STEP -24
  101. 1000 PAINT (A,196),0,3
  102. 1010 NEXT A
  103. 1020 FOR A=302 TO 14 STEP -24
  104. 1030 PAINT (A,196),2,3
  105. 1040 NEXT A
  106. 1050 GET (1,190)-(319,199),BH2
  107. 1060 FOR A=183 TO 8 STEP -18
  108. 1070 PAINT (8,A),2,3
  109. 1080 NEXT A
  110. 1090 GET (1,1)-(12,199),LV1
  111. 1100 FOR A=183 TO 8 STEP -18
  112. 1110 PAINT (8,A),0,3
  113. 1120 NEXT A
  114. 1130 FOR A=191 TO 8 STEP -18
  115. 1140 PAINT (8,A),2,3
  116. 1150 NEXT A
  117. 1160 GET (1,1)-(12,199),LV2
  118. 1170 LOCATE 7,20:PRINT " MENU ";
  119. 1180 LOCATE 10,17:PRINT "A-ORGANITEK"
  120. 1190 LOCATE 12,17:PRINT "B-ORGANISCOPE"
  121. 1200 LOCATE 14,17:PRINT "C-BLUEZORG"
  122. 1210 LOCATE 16,17:PRINT "D-SPACEORG"
  123. 1220 LOCATE 18,17,0:PRINT "Q-QUIT"
  124. 1230 LOCATE 20,5:PRINT "(FIRST CHOOSE LETTER, THEN HIT":LOCATE 21,7:PRINT "LOWERCASE KEYS FOR TONES)"
  125. 1240 PLAY "MBL4T190MSO4P1GE8P8AP8G8FD8P8GP8F8E8P8CF8P8DGP8G8C2"
  126. 1250 A$ = INKEY$:IF A$<> "" THEN 1350
  127. 1260 PUT (1,1),TH1,XOR:PUT(1,1),TH2
  128. 1270 PUT (310,1),RV1,XOR:PUT(310,1),RV2
  129. 1280 PUT (1,190),BH1,XOR:PUT(1,190),BH2
  130. 1290 PUT (1,1),LV1,XOR:PUT(1,1),LV2
  131. 1300 PUT(1,1),TH2,XOR:PUT(1,1),TH1
  132. 1310 PUT(310,1),RV2,XOR:PUT(310,1),RV1
  133. 1320 PUT(1,190),BH2,XOR:PUT(1,190),BH1
  134. 1330 PUT(1,1),LV2,XOR:PUT(1,1),LV1
  135. 1340 GOTO 1250
  136. 1350 IF A$ = "A" THEN 1420
  137. 1360 IF A$ = "B" THEN 1570
  138. 1370 IF A$ = "C" THEN 1780
  139. 1380 IF A$ = "D" THEN 1910
  140. 1390 IF A$ = "Q" THEN 1410
  141. 1400 GOTO 1240
  142. 1410 GOTO 2070
  143. 1420 CLS:SCREEN 0:LOCATE ,,0
  144. 1430 COLOR 15,0,3:LOCATE 5,15:PRINT"ORGANITEK"
  145. 1440 LOCATE 11,3:PRINT"DEMONSTRATES HOW EACH STRIKE OF THE"
  146. 1450 LOCATE 13,3:PRINT "KEYBOARD CAN SET OFF A RAPID"
  147. 1460 LOCATE 15,3:PRINT "SUCCESSION OF INTERRELATED TONES."
  148. 1470 LOCATE 19,10:PRINT"CAPITAL Q TO RETURN"
  149. 1480 A$=INKEY$: IF A$="" THEN 1480
  150. 1490 IF A$ = "Q" THEN 560
  151. 1500 B$="\XZXXCXVXBXNMX,X./XAXSXDFXGXHJXKXLX;'X`XQWXEXRXTYXUXIOXPX[X]1X2X34X5X6X78X9X0-X="
  152. 1510 NO=INSTR(1,B$,A$):NM = NO + 5:NP = NO -5
  153. 1520 IF NM >80 THEN NM = 80
  154. 1530 IF NP < 0 THEN NP = 0
  155. 1540 NO$=STR$(NO):NP$ = STR$(NP):NM$ = STR$(NM)
  156. 1550 PLAY "L25T255N" + NO$+"N"+ NP$+"N"+NM$
  157. 1560 GOTO 1480
  158. 1570 CLS:SCREEN 0:LOCATE ,,0
  159. 1580 COLOR 15,0,3:LOCATE 5,15:PRINT"ORGANISCOPE"
  160. 1590 LOCATE 11,3:PRINT"DEMONSTRATES HOW TWO SUCCESSIVE STRIKES "
  161. 1600 LOCATE 13,3:PRINT "OF THE KEYBOARD CAN BE INTERELATED."
  162. 1610 LOCATE 15,3:PRINT "(IN THIS CASE HITTING ALL THE TONES IN- BETWEEN.)
  163. 1620 LOCATE 19,10:PRINT"CAPITAL Q TO RETURN"
  164. 1630 NM=20
  165. 1640 A$=INKEY$: IF A$="" THEN 1640
  166. 1650 IF A$ = "Q" THEN 560
  167. 1660 'B$="\ZXCVBNM,./ASDFGHJKL;'`QWERTYUIOP[]1234567890-="
  168. 1670 B$="\XZXXCXVXBXNMX,X./XAXSXDFXGXHJXKXLX;'X`XQWXEXRXTYXUXIOXPX[X]1X2X34X5X6X78X9X0-X="
  169. 1680 NO=INSTR(1,B$,A$)
  170. 1690 NO$=STR$(NO):NM$ = STR$(NM)
  171. 1700 IF NM=NO THEN 1640
  172. 1710 PLAY "L64T255N" + NO$+"N"+NM$
  173. 1720  PLAY "MLL18T255N" + NO$
  174. 1730 IF NM < NO THEN 1760
  175. 1740 IF NM > NO THEN 1770
  176. 1750 GOTO 1640
  177. 1760 NM = NM + 1:GOTO 1690
  178. 1770 NM = NM - 1:GOTO 1690
  179. 1780 CLS:SCREEN 0:LOCATE ,,0
  180. 1790 COLOR 15,0,3:LOCATE 5,15:PRINT"BLUEZORG"
  181. 1800 LOCATE 11,3:PRINT"DEMONSTRATES HOW THE SCALE CAN BE"
  182. 1810 LOCATE 13,3:PRINT "CHANGED FROM AN ORDINARY `C'"
  183. 1820 LOCATE 15,3:PRINT "SCALE TO A `C'BLUES SCALE."
  184. 1830 LOCATE 19,10:PRINT"CAPITAL Q TO RETURN"
  185. 1840 A$=INKEY$: IF A$="" THEN 1840
  186. 1850 IF A$ = "Q" THEN 560
  187. 1860 B$="\XXZXCVBXXNM,XX./ASDXXFGHXXJKL;'XX`QWXXERTYUXXIOPXX[]123XX123XX45678XX90-XX="
  188. 1870 NO=INSTR(1,B$,A$):NM = NO + 5:NP = NO -1:NO$=STR$(NO):NP$ = STR$(NP):NM$ = STR$(NM)
  189. 1880 'PLAY "L25T255N" + NO$+"N"+ NP$+"N"+NM$
  190. 1890  PLAY "MNL18T255N" + NO$
  191. 1900 GOTO 1840
  192. 1910 SCREEN 0:LOCATE ,,0:CLS
  193. 1920 COLOR 15,0,3:LOCATE 5,15:PRINT"SPACEORG"
  194. 1930 LOCATE 11,3:PRINT"DEMONSTRATES HOW THE SOUND AND PLAY"
  195. 1940 LOCATE 13,3:PRINT "COMMANDS CAN BE INTERTWINED"
  196. 1950 LOCATE 15,3:PRINT "RESULTING IN,AMONG OTHER THINGS,"
  197. 1960 LOCATE 17,3:PRINT"A DRONE TONE."
  198. 1970 LOCATE 19,10:PRINT"CAPITAL Q TO RETURN"
  199. 1980 A$=INKEY$: IF A$="" THEN 1980
  200. 1990 IF A$ = "Q" THEN 560
  201. 2000  B$=" \XZXXCXVXBXNMX,X./XAXSXDFXGXHJXKXLX;'X`XQWXEXRXTYXUXIOXPX[X]1X2X34X5X6X78X9X0-X="
  202. 2010 NO=INSTR(1,B$,A$):NM = NO + 1:NP = NO -1:NO$=STR$(NO):NP$ = STR$(NP):NM$ = STR$(NM)
  203. 2020  PLAY "L64T255N" + NO$+"N"+ NP$+"N"+NM$
  204. 2030  PLAY "MNL30T255N" + NO$
  205. 2040 SOUND 37,.5:SOUND 40,.5
  206. 2050 A$=INKEY$: IF A$ ="" THEN 2030
  207. 2060 IF A$= "Q"THEN 560 ELSE GOTO 2000
  208. 2070 SCREEN 0:CLS:COLOR 15,4,3:LOCATE,,0
  209. 2080 A$="O1DDDO0A8B8O1L4C+D8L8C+O0L4BA2.O1DC+O0BABG8L8F+L4ED2."
  210. 2090 CLS:COLOR 0:PLAY "MBXA$;":LOCATE 3,3:PRINT"DO YOUR PROGRAMS HAVE MORE BUGS THAN A    `ROACH MOTEL'?"
  211. 2100 PLAY "XA$;":LOCATE 7,1:PRINT"IS YOUR DISK DRIVE POSSESSED??"
  212. 2110 B$="MBO0DF+ABG+A2.DAABO1C+D2.C+DC+O0BBA2.BBABGL2F+."
  213. 2120 PLAY "XB$;":LOCATE 9,3:PRINT "DOES YOUR MICROPROCESSOR HAVE THE       PREDICTABILITY OF A FOUR YEAR OLD WITH      HEMORRHOIDS???"
  214. 2130 C$="L4O1DC+O0BABG8L8F+L4ED2."
  215. 2140 PLAY "XC$;":LOCATE 14,15:COLOR 31,4,3:PRINT"!REPENT!":COLOR 15,4,3
  216. 2150 LOCATE 16,3:PRINT "AND SEND ALL PIRATED PROGRAMS TO..."
  217. 2160 LOCATE 18,3:PRINT "CHURCH OF THE DIVINE PROGRAMMER"
  218. 2170 LOCATE 19,3:PRINT "ANTICHRIST, VA  01666"
  219. 2180 LOCATE 23,1:PRINT TAB(10);"HIT ANY KEY TO EXIT"
  220. 2190 A$=INKEY$:IF A$="" THEN 2190
  221. 2200 COLOR 7,0,0:WIDTH 80:CLS
  222. 2210 REM
  223.  
  224.